﻿Public Class BEVideo
  Private _strDiretorio As String

  Private _intIdVideo As Integer
  Private _strVideo As String
  Private _strImagem As String
  Private _strTitulo As String
  Private _strDescricao As String
  Private _intRanking As Integer
  Private _intWidth As Integer
  Private _intHeight As Integer

  Private _objCategoria As BECategoriaVideo
  Private _objUsuario As BEUsuario

  Sub New()
    _intIdVideo = 0
    _strVideo = ""
    _strTitulo = ""
    _strDescricao = ""
    _intRanking = 0
    _intWidth = 0
    _intHeight = 0

    _objCategoria = New BECategoriaVideo()
    _objUsuario = New BEUsuario()
  End Sub

  Sub New(ByVal idVideo As Integer)
    Me.New()
    _intIdVideo = idVideo
  End Sub

  Public Property Diretorio() As String
    Get
      Return _strDiretorio
    End Get
    Set(ByVal value As String)
      If Not value.EndsWith("\") Then value &= "\"
      _strDiretorio = value
    End Set
  End Property

  Public Property IdVideo() As Integer
    Get
      Return _intIdVideo
    End Get
    Set(ByVal value As Integer)
      _intIdVideo = value
    End Set
  End Property

  Public Property Video() As String
    Get
      Return _strVideo
    End Get
    Set(ByVal value As String)
      _strVideo = value
    End Set
  End Property

  Public Property Imagem() As String
    Get
      Return _strImagem
    End Get
    Set(ByVal value As String)
      _strImagem = value
    End Set
  End Property

  Public Property Titulo() As String
    Get
      Return _strTitulo
    End Get
    Set(ByVal value As String)
      _strTitulo = value
    End Set
  End Property

  Public Property Descricao() As String
    Get
      Return _strDescricao
    End Get
    Set(ByVal value As String)
      _strDescricao = value
    End Set
  End Property

  Public Property Ranking() As Integer
    Get
      Return _intRanking
    End Get
    Set(ByVal value As Integer)
      _intRanking = value
    End Set
  End Property

  Public Property Width() As Integer
    Get
      Return _intWidth
    End Get
    Set(ByVal value As Integer)
      _intWidth = value
    End Set
  End Property

  Public Property Height() As Integer
    Get
      Return _intHeight
    End Get
    Set(ByVal value As Integer)
      _intHeight = value
    End Set
  End Property

  Public Property Categoria() As BECategoriaVideo
    Get
      Return _objCategoria
    End Get
    Set(ByVal value As BECategoriaVideo)
      _objCategoria = value
    End Set
  End Property

  Public Property Usuario() As BEUsuario
    Get
      Return _objUsuario
    End Get
    Set(ByVal value As BEUsuario)
      _objUsuario = value
    End Set
  End Property

End Class
